Revision: arnesi--dev--1.2--patch-47
Archive: bese-2004@common-lisp.net
Creator: Marco Baringer <mb@bese.it>
Date: Mon Feb  7 12:22:35 CET 2005
Standard-date: 2005-02-07 11:22:35 GMT
Modified-files: src/mopp.lisp
New-patches: bese-2004@common-lisp.net/arnesi--dev--1.2--patch-47
Summary: Avoid CMUCL optimizer bug
Keywords: 

If the mopp:direct-slot-definition-value function is defined firts with a
constant return value of :this-is-redefined-later then CMUCL remembers
(as far a s constant folding is concerned) that that is the value
returned by the function, which isn't the case.

* src/mopp.lisp (defun mopp:direct-slot-definition-value): Funcall a
  closed over variable instead of defining the function and then later
  changing it with (setf (symbol-function ...) ...).

